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DEC EDUCATIONAL PUBLICATIONS 





Other publications in the continuing series of curriculum material 
published by DEC for use with EduSystems 10 through 80 are listed 
below. Please inquire directly for prices on classroom quantities. 
Additional publications may be obtained from: . 
Program Library 


Digital Equipment Saipesee eh 
Maynard, Massachusetts 01754 


Populution: Self-teaching BASIC Workbook $2.00 


BASIC Application Programs 


Mathematics I | 1.00 

Mathematics II 1.00 

Science | 1.00 

Business/Social Studies 1.00 ty 

Plotting | 1.00 | , J» 
BASIC Matrix Operations _ 1.00 


Huntington I Application ree eee 
| MATHEMATICS 2.00 
TEACHER ASSISTANCE - 1.00 


Huntington I Simulation PrOgealle 


BIOLOGY | 1.00 
CHEMISTRY | | 2.00 
EARTH SCIENCE | | 1.00 
PHYSICS 2.00 ; 


SOCIAL STUDIES 3 1.00 


Problems for Computer Mathematics : 1.25 * * 





BASIC APPLICATION PROGRAMS 


The programs contained in this series are designed to demonstrate 
how the computer can be applied in a meaningful way to problems 

of many disciplines. The problems and the corresponding programs 
are, for the most part, quite simple and are designed to be | 
"jumping off points" for students from the high school level on up. 


All of the programs, with very few exceptions, may be run on 
EduSystems 10 through 80, PDP-8 Family and PDP-1l Family computers. 
Exceptions are noted in the program descriptions. 


DEC welcomes contributions of programs and write-ups for use in 
this series. Contributors will be credited as program "Source". 
Please send programs and descriptions to Educational Marketing (5-2). 


Mathematics 
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Games 


Graphing 
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ROOTS 
SETS-1 


SIMUL 
TICKET 
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TABLE OF CONTENTS 


MATHEMATICS I 

Demonstrates exponential convergence. 
Solves simple time-speed-distance problem. 
Addition drill and practice. 

Converges on e and @ by three methods. 


Solves simple drinking/blood pressure 
relationship. 


Finds the roots of any function between 
-20 and 20. 


Determines the intersection of two sets of 
numbers. 


Solves simultaneous equations by brute force. SY 
Introduces the concept of logical branching. 


Solves for the area under a curve by 
equation. 


Solves the slipping ladder problem by 


Pythagorean theorem. 


Binary search guessing game vs. the computer. 
Simulates a one-arm bandit. 


Plots an N by N diamond matrix. 


‘Plots any function. : 


AREA: Mathematics _ NUMBER: 8-1 NAME: BASKT 

SOURCE: Digital Equipment Corp. LANGUAGE: BASIC 

DESCRIPTION: This program illustrates how the computer can be used to 
solve a problem using exponential convergence. The 


problem is: | 


Holding a ball six feet from the floor and letting it drop, a basketball 
player noticed that the ball bounced back up only two-thirds of that 
height (four feet). On the second bounce, the ball rose to only two 
thirds of the second height (two feet, eight inches). The third bounce 
brought it to two-thirds of the previous height, and so on. What was 


the total distance the ball traveled--both up and down--before it came 
to rest? 


USAGE: A diagram can be used to show how far the ball bounces each time. 


O 





We notice that after the lst bounce, the ball has traveled (at floor 
level) : 


Dl +2*D2 or Dl + 2* (2/3 * Dl) 
and that after 2 bounces, the ball has traveled: 


Dl + 2*D2 + 2*D3 = D1 + 2* (2/3*D1) + 2*(2/3 * 2/3 * Dl) 


Hence, with each additional bounce, the ball travels an additional 
distance of: 


2*D1* (2/3) or 12* (2/3) 


Now it is a simple matter to write a program which increments the total 
distance traveled and print out the results after each bounce. 


1 PRINT "PROGRAM BASKT" 

2 PRINT 

3 PRINT "BOUNCES"'s *DISTANCE” 
4 PRINT 

S LET D=6 

1@ FOR X=1 TO 50 

29 LET D=D+12*(2/3)1tX 

30 PRINT XsD 

4@ NEXT X 

99 END 


RUN 


PROGRAM BASKT 


BOUNCES DISTANCE 
i 14 
2 1933333 
3 22 .88889 
4 25225926 
5 26663951 
6 272493 
7 26259534 
& 29 «06356 
9 29-3757 
10 29 583% 
11 2972253 
12 29-81502 
13 29 «6766% 
32 29299994 
33 2999996 
34 29.99997 
35 29299996 
36 29299998 
37 2999999 
38 29.99999 
39 2999999 
AQ - 29299999 
4} 2999999 
42 29299999 
43 29.99999 
Ad 29299999 
45 29.99999 
46 2999999 
AT 2999999 
Ag 2999999 
A9 2999999 
50 29299999 
READY 


EDUCATIONAL BENEFIT: The student can see, by means of a contemporary 
example, how a progression can be used to solve a problem. He also 
learns to solve a problem which would be quite difficult to do by hand, 
especially after the first few terms. 


pi Ny a Cen eee 


AREA: Mathematics NUMBER: 8-2 NAME: Bicycl 

SOURCE: Digital Equipment Corp LANGUAGE: BASIC 

DESCRIPTION: The solution to this problem illustrates how the computer 
can be used as a powerful calculator. The problem is: 


A boy on a bicycle and a man in a car start at the same time from town 
A for town B, 110 miles away. They travel over the same road at 6 and 
40 miles per hour respectively. When the man in the car reaches B, he 
will stop for 15 minutes and then start back again. How many hours 
will the boy on the bicycle have traveled when he meets the car on its 
return trip? 


USAGE: Let's set up our equations first. Remember distance = rate * 
time or T = D/R. Letting Tl be the time the car has traveled before 
it starts the return trip, then: 


(110 mi I. 
~ See ee 
i= 46 men | 4 
The bicycle has traveled Tl * 6 mph at the time the car starts back. 
Hence the time until they meet is 


T2 = 110 - T1*6 

40 mph + 6 mph 

The total time is Tl + T2, so now we can easily write a program to 
solve the problem: 


5S PRINT "PROGRAM BICYCL" 

6 PRINT : 

10 LET T1=11A/4A+174 

PA LET T22(119-6*T1)/7C4A+6) 

20 PRINT "CYCLIST HAS TRAVELED"$T1+T23"HOURS WHEN BOTH MEFT-" 


99 END 
RUN 
PROGRAM BICYCL 


CYCLIST HAS TRAVELED 5S HOURS WHEN BOTH MEET. 


Not very difficult and the numbers "come out even." But they don't have 
to. Let's try it over a distance of 112 miles with speeds of 7.5 mph and 
46 mph respectively. The computer solves this one just as easily. Can 
you? 


READY 


10 LET T1=2#112/746+174 
PA LET T2=2=€112-7-S5*T1)/€ 4647-5) 


RUN Ad 


PROGRAM BICYCL 


CYCLIST HAS TRAVELED 4-401869 HOURS WHEN BOTH MEET. 


PEADY 


& 
EDUCATIONAL BENEFITS: Computers can be used as powerful calculators too. 


+ 
gi 


AREA: General NUMBER : NAME: CAI-ADD 
SOURCE: Digital Equipment Corp. LANGUAGE: BASIC 


DESCRIPTION: This program demonstrates a simplified Computer Assisted 
Instruction drill and practice routine. The user determines how many 
digits each problem will contain. Then, ten addition problems are 
produced with the user providing the answer after each problem is 
presented. After the last problem is correctly answered, the score 

is printed with an appropriate comment. 


S REM - CAI ADDITIONs 10 PROBLEMS 
14 PRINT “HOW MANY DIGITS"S 
20 INPUT N 
22 LET W=a 
25 FOR X=1 TO 14 
27 LET Q=0 
3A LET A=INTCI@tN*RNDCO) ) 
4A LET B=INTC1AtTN*RNDCO) ) 
5A PRINT 
60 PRINT * "sA 
7A PRINT " +"3$B 
84 PRINT “ -2ee- Pe 
9A PRINT " "3 

100 INPUT G 

110A TF G=A+B THEN 144 

115 GOSUB 2aa 

120 PRINT "“WHAT?? TRY AGAIN” 

134A GO TO 54 

140 PRINT “THAT'S RIGHT+ TRY ANOTHER” 
150A NEXT X 

155 PRINT 

16A PRINT "YOU GOT"1@-W"CORRECT THE FIRST TIME" 
165 IF W<=3 THEN 184 

170A PRINT “BUT YOU MISSED"W 

175 STOP 

180 PRINT "GOOD WORK!" 

185 STOP 

2eAA LET Q=Q+1 

2AS IF A>1 THEN 120 

210A LET W=W+! 

215 RETURN 

999 END 


£ 32 
WHAT? ? 


? 103 


? 34 
THAT'S 


e 37 


? S54 


MANY DIGITS? ?@ 


TRY AGAIN 


RIGHT. 


RIGHT. 


TRY AGAIN 


RIGHT. 


THAT'S RIGHT. 


EDUCATIONAL 
practice in 
demonstrate 
Instruction 
for writing 


BENEFIT: 
a math class. 


program. 


TRY ANOTHER 


TRY ANOTHER 


TRY ANOTHER 


TRY ANOTHER 





However, 


? 


z 


LAA 


110 


PIGHT. 


THAT'S RIGHT. 


? 


? 


112 


122 


2? OR 


? 


YOU 


179 


THAT'S RIGHT. 


THAT"S RIGHT. 


TRY ANOTHER 


TRY 


ANOTHER 


TRY ANOTHER 


TRY ANOTHER 


GOT 6 CORRECT THE FIRST TIME 
BUT YOU MISSED 4 


This program could be used for drill and 

it was designed to merely 

the basic idea behind a traditional Computer Assisted 
It may be used to give students some clues 
more sophisticated CAI programs. 


AREA: Mathematics NAME : CAI-AD2 
SOURCE: David H. Ahl, DEC LANGUAGE: BASIC 


Descritpion: This program is a somewhat more advanced version of 
CAI-ADD. 


In particular, the extensions include questions on how many problems 
you wish to do and how many digits you wish to work with. The computer 
suggests working with 4 or fewer digits if the user specifies 5 or more 
(this limit can be changed in Statement 14). 


Also, the columns of numbers are right justified in Statement 60 and 70. 
This is a useful technique for formatting any kind of output. The 
generalized form of the statement is: 


PRINT TAB(W-INT (LOG(N)/ LOG(10)+1));N 


"Ww" represents the width of the field while N is the number. you save 
a little computing time by using the numeric value of LOG(10), i.e., 
2.302585 rather than computing the log every time. 


Statements 141 to 153 replace the single Statement 140 in CAI-ADD. 
These statements simply print out one of four alternative messages of 
reinforcement when the correct answer is given. 


PRI “ADDITION PRACTICE" 


PRI "HOW MANY PROBLEMS DO YOU WISH TO DO"; 


INP P 
9 PRI 


10 PRI “HOW MANY DIGITS DO YOU WISH TO WORK WITH"; 


12 INP N 

14 IF N<5 THEN 2@ 

16 PRI “THAT'S TOO MANY FOR MY TASTE. 
17 PRI “FEWER DIGITS, ALL RIGHT? NOW 
18 GOT le 

26 PRI 

22 LET W=6 

25 X=X+1 

27 Q=0 

30 A=INTC1IOtN*RND CO )) 

40 B=INTC1@ tN*RND(@ )) 

5@ PRINT 

68 PRI TABC6-INTCLOGCA)/2 -362585+1 235A 
76 PRI TABCS-INTCLOG(B)72 -36256541 095" 
oO FRINT “ =e ee - 

96 PRINT * °"'; 
166 INPUT G 
116 IF G=A+B THEN 149 
lle IF Q@<2@ THEN 122 


WHY NOT TRY 4 OR" 


THEN » 


+" 3B 


HOW MANY DIGITS": 


114 PRI "THAT'S THE THIRD TIME YOU MISSED THAT PROBLEM. 


115 PRI "THE CORRECT ANSWER IS "A+B." 
fan ft PRI 

126 PRI “LET'S GO ON TO ANOTHER. 
121 GOT 25 

lee Q=Q+1 

123 IF Q>1l THEN 1268 

125 Ww=Wl 

128 PRINT "WHAT? TRY AGAIN." 

136 GO TO 5d 

140 IF X=P THEN 155 

141 Y=Y+l 

142 IF Y<>1 THEN 145 

143 PRI "VERY GOOD! 

144 GOT 25 

145 IF Y<>e THEN 146 

146 PRI “CORRECTe HERE'S ANOTHER. 
147 GOT 25 

148 IF Y<>3 THEN 151 

149 PRI “YOU'RE A REAL MATH GIANT! 
15@ GOT 25 

151 Y=@ 

152 PRI "SUPER !! 

153 GOT 25 

155 PRINT 


16@ PRINT "YOU GOT"P-wW"CORRECT THE FIRST TIME" 


165 IF W<=3 THEN 180 

174 PRINT "BUT YOU MISSED"W 
175 STOP : 
a PRINT "GOOD WORK!" 

185 STOP 

999 END 


AREA: Mathematics NUMBER : NAME: CONVRG 
SOURCE: Digital Equipment Corp. LANGUAGE: BASIC 
DESCRIPTION: The CONVRG series of programs will calculate: 

1. € by an infinite series. 

2. by inscribed and circumscribe polygon. 

3. mby infinite series (1 - 1/3 + 1/5 - 1/7 + 1/9...) 


APPROACH: The above methods are commonly taught to show how and may 
be accurately calculated; however, it is difficult to carry out the 
calculations very far using pencil and paper alone. 


The portion of the program to converge on e using the series 


1+ 1/1 + 1/2 + 1/6 + 1/24 + 1/120 +...) 
is as follows: 


1AAQ LET F=] 

110A LEFT T=T+] 
129A LET De! 

123¢@ FOR J=1 TO I 
14AQ LEFT D=D*J 
154% NEXT J 

144 LET F=F+1/7D 
17A PCPINT F. 

1RA CDN TO 114A 
9990 FND 


PN 


) 


e >) . 

Pe ff6AE4T 
22 7TARI33 
Pe T1A667 
Pe T1RASE6 
PeT1{ROSA 
2e71ROT79 
PeT1{RPR) 
2.71RORO 
PeT1RERO 
P~7)KROPROD 


The portion of the program to converge on Pi by means of inscribed 


and circumscribed polygons is as follows: 













10 LET N=6 
20 LET N=2*N 
30 LET X=360/(N#57+29578) 
AQ PRINT N#SIN(X)*COS(X)/2s N#TANCX)/2 
5A GOTO 20 
99 END 
READY 
RUN 
2.598076 3.464102 Start with a 
3 3221539 Sided polygon 
3.105829 3.15966 
3.132629 32146086 
3613935 32142715 
3.141032 32141873 
32141453 32141663 
3.141558 3.14161 
30141584 32141597 
30141591 32141594 
3.141592 3.141593 
36141593 3.141593 ) 
36141593 30141593 49,192 -sided polygon 
rc 


The third option, converging on Pi using an infinite series converges 
very slowly. Therefore, only every 500th value is typed out. 


3AA 
310 
320 
BAA 
344 
35a 
360 
A7A 
380A 
39A 
999 


LET 
LET 
LET 
LET 


amen 


ue ttt 


+ 
sun 


P=P+S/I 

LET T=I+2 

LET S=#-S 

IF Q<499 THEN 328A 
LEFT Q=A 

PPINT Px*4 

GO TO 324 

END 


RUN 


3¢143597° 
38¢14A59 
3e¢142°P61 
3e141A091 
3¢141994 
3¢141259 
3¢141879 
3¢141342 
3¢141816 
3¢141392 
3¢141775 
3¢141426 
32141748 





tC 


AREA: Mathematics NUMBER: 8-5 NAME: DRINKR 


SOURCE : 


DESCRIPTION : 


APPROACH: 


Digital Equipment Corp. LANGUAGE : 


an extended calculator, can solve the following 
problem: 


BASIC 


This program illustrates how the computer, used as 


35 persons per 1000 have high blood pressure. 80% 


of those with high blood pressure drink, and 60% 
without high blood pressure drink. Estimate the 
fraction of drinkers with high blood pressure. 


This problem requires the solution of several simple 


equations. If we let H = the number of people with 
high blood pressure, then: 


H = 35 


And if Hl = the number of people with high blood 
pressure who drink, then: 


Hl = .80 * H 


Letting Ll - the number of people with low blood pressure 


who drink yields: 
Ll = .60 * (1000 - H) 

Now, we can solve for the number of drinkers, D: 
D= Hl + Ll 


Finally, the percentage of drinkers with high blood 
pressure is: 


X = Hl] * 100 / D 


The program below solves the problem in a jiffy: 


READY 

5 PRINT "PROGRAM DRINKR" 

6 PRINT 

1A LET H=35 

20 LET H1i#e8*H 

3A LET L1=-e6*C1A@A-H) 

4A LET D=H1+4+L1 

5A LET X=H*1AA/D 

6A PRINT xX3°"'% DRINKERS HAVE HIGH BLOOD PRESSURE" 

7A PRINT H*100/10003"% OF ALL PEOPLE HAVE HIGH BLOOD PRESSURE." 

99 END 

RUN 

PROGRAM DRINKR = 

| het 

5°766%63 2 DRINKERS HAVE HIGH BLOOD PRESSURE- 

3e5 2 OF ALL PEOPLE HAVE HIGH BLOOD PRESSURE- 

READY 

EDUCATIONAL BENEFITS: This type of problem can be written directly 
in BASIC without going through the steps 
above. Recognizing this type of problem 
readily will save lots of pencil-pushing 
time. : 


we, 


AREA: Mathematics NUMBER : NAME: ROOTS 
SOURCE: Digital Equipment Corp. LANGUAGE: BASIC 


DESCRIPTION: ROOT finds all the roots of a function (ANY FUNCTION: ) 
between -20 and 20. The function may be quadratic, cubic, trigonometric 
or any combination. 


APPROACH: The method used here involves evaluating the function at 
incremental values, finding places where the value of the function 
changes sign and then, by successive approximations, finding the zero 
point. This method is similar to the commonly taught "Newton's Method." 


USAGE: Before typing RUN, enter the function to be evaluated as a DEF 
FNA(X) statement as line 100. Then type RUN. For example: 


2*X#3+11*X42-31*X-180 


100 DEF FNA(X) 


100 DEF FNA(X) SIN (X)-.5 


100 DEF FNA(X) x-4 

EDUCATIONAL BENEFITS: The average student (especially in high school) 
does not have a thorough understanding of the very important concept 
of solving a function, much less an ability to do so for functions of any 
complexity. The computer lets them become very knowledgeable and 
confident in this area. 


1AQ DEF FNACX)=2*xt3 + 11*Kt2 =— BI*K - 184 
110A LET 712-200 

120 FOR I=-19-9 TO 2A 

130 IF SGNCFNACI)=SGNCFNACI+1)) THEN 300 
14A LET KeI | 

150 LET J=I+! 

160 IF FNACK)<FNACJ) THEN 200 

17A LET Z=K 

180 LET K=eJ 

194 LET J=Z 

2AA LET 7=CK+J)72 

210 IF FNACZ)<@ THEN 240 

220 LET J=Z 

23A GO TO 25a 

PAA LET K=7, 

250 IF ABSCFNAC(Z))>5SeAAABBGAE-A5 THEN 200 
260 LET Z7=SGN(Z)*INTCABSCZ)#1AAAA+25)/10000 
270A IF 7=71 THEN 300 

2RA PRINT “FC'Z") =a" 

290 LET 7.1=7, 

3AA NEXT I 

31A END 


READY 


1AQ DEF FNACY¥)=X%-4 
PUN 


FC 4 D208 


READY 


190 DFF FNACX)=SINCX)<--5 
RUN - 


F(C-18-3259 20 
F(-1602315 026 
FC-12-NAPR 1=9 
FC-$9-9A4R3 =A 
F(C-5-7596 )=0 
FC-3-6651 =A 
FC 25°36 )=4 
FC 2e6179 =A 
FC 6¢8A68 )=4 
FC 8-9A11 I=A 
FC 13-¢A9 2A 
FC 15-1844 )=A 
FC 19-3732 )=A 


READY 


1AQ DEF FNACX)=2*xKt3 + 118®Xt2 - 31¥*X - 186 
RUN 


FGeS 2A 


FC-4-5 I=aA 
FC 4 JA 


READY 


eF 


AREA: Mathematics | NUMBER: 8-12 NAME: SETS-|! 
SOURCE: CAMP First Course, Scott, Foresman and Company 

LANGUAGE: BASIC 
DESCRIPTION: Program to determine the intersection of two sects of 
numbers. 


USAGE: Two sets of numbers can be combined to yield a third sect by 

the operation of intersection. The intersection of two sets A and B is 
the set that contains all elements that belong to both A and B. It does 
not contain any other elements. The intersection is usually written ANB. 


For example, if M ={0,2,4,6} and K => 2,2,3,4); then MOK ={ 2,4}. 


The computer can be instructed to find the intersection of two sets. A 
program for finding the intersection of set x = {1,3,5,---19 } and 
y = {2,5,8,---29} is written below 


S PRINT “PROGRAM SETS-1" 

6 PRINT | 
7 PRINT “THE INTERSECTION OF SETS X AND Y IS" 
10 FOR X=1 TO 19 STEP @ 

20 FOR Yy=2 TO 29 STEP 3 

30 IF XsY THEN 706 

40 NEXT Y 

5A NEXT X 

6a GO TO 99 

70 PRINT X 

87 GO TO 5A 

99 END 


PROGRAM SETS-1 


THF. INTERSECTION OF SETS X AND Y IS: 
5 

11 

17 


READY 


Using the computer, complicated sets which would be tedious to do by 7 
hand may be examined by defining one or both sets in a data statement. —. 
In the following example, set y is the same as above, but set x is 
given in the DATA statement. 


S PRINT "PROGRAM SETS-1" 
6 PRINT , 
7 PRINT "THE INTERSECTION OF SETS X AND Y IS" 
10 READ X 
©2A FOR Y=2 TO 29 STEP 3 
30 IF X=Y THEN 74 
4A NEXT Y 
50 GO TO 1a 
7A PRINT X 
8A GO TO 140 
90 DATA 233538392145 15320%221 226227 
99 END | 


RUN 
PROGRAM SETS-1 


THE INTERSECTION OF SETS X AND Y IS:3 


OUT OF DATA IN LINE 10 


READY 


EDUCATIONAL BENEFITS: The student is able to see that if there is a 
numerical pattern in the sets which intersect, there is also a pattern 
in the resultant intersecting set. In the first example above, for 
instance, set x steps by 2 and set y steps by 3, hence the intersecting 


set steps by 2 x 3 = 6. More complicated sets can be examined by 
computer than can easily be done by hand. 


Ba) 


AREA: Mathematics: NUMBER: 8-13 NAME: SIMUL 

SOURCE: Digital Equipment Corp. LANGUAGE: BASIC 
DESCRIPTION: The SIMUL program illustrates one way in which the 
computer can be used to solve relatively complex simultaneous equations. 


USAGE: The computer can be used to solve simultaneous equations by 
trial and error far faster than we humans can. For example, let's solve 
for x and y in the following equations: 


2x = =2Y and 3% = 27y 


The program, which tries values of x and y between O and 100 until it 
reaches a solution or runs out of values is as follows: 


S PRINT "PROGRAM SIMUL" 
6 PRINT "SOLUTION TO TWO SIMULTANEOUS EQUATIONS" 
7 PRINT 
10 FOR xX=1 TO 1a@a 
2A FOR Y=1 TO 1aA 
3A IF 2tK<>16*Y/3 THEN 590 
4A IF 3tx<>27*Y THEN 50 
45 PRINT "XK ="3xXs"y ="3sy 
48 GO TO 99 
SA NEXT Y 
60 NEXT X 
70 PRINT “NO INTEGER SOLUTION" 
99 END 7 


READY 
RUN 


PROGRAM SIMUL 
SOLUTION TO TWO SIMULTANEOUS EQUATIONS 


xX = 4 Y= 3 


es 


Let's try the same problem, but change Equation 2 slightly. 


10 FOR X=1 TO 10 

24 FOR Y=1 TO 10 

40 IF 3tX<>28*Y THEN 5@ 
RUN 


PROGRAM SIMUL 
SOLUTION TO TWO SIMULTANEOUS EQUATIONS 


NO INTEGER SOLUTION 


Nao? 
READY 
Oh, Oh. What went wrong? 
EDUCATIONAL BENEFITS: The student can see that trial and error, at 
least incrementing by whole numbers, does not always yield a solution, 
even trying 10,000 combinations. There must be another, better way. 
Hint: Try combining the two equations and getting a solution for x 
using program ROOT. Then y can be easily solved for. . 
ee 


AREA: Geometry NUMBER: 8-16 NAME: Area-l 
SOURCE: Computer Methods in Mathematics LANGUAGE: BASIC 


DESCRIPTION: The problem is to solve for the shaded area of the 
figure below for any value of the radius, R. 





BS ore 
MERKLE 
= SOOO 


APPROACH: We start by remembering that the area of a circle and 
| square are calculated as follows: 


ae ee 
Aaircle T R 


2 2 
* 
A SIDE CF. (2 R) 


The difference in area between a square and a circle 
inscribed within its borders is: 


OA = Asquare - Acircle 


and the area of one corner is: 
Acorner =4A/4 


Now, let's write the program to perform this calculation 
for any input value of R. 


EDUCATIONAL BENEFITS: By trying different values of R, the student 
can determine relationships in areas as a 
function of the components. Let's try several 
values of R and see what happens. 


PRINT 
PRINT 
PRINT 
INPUT 
PRINT 


LFT A 
LET A 


ie) 
6 
7 
g 
9 
1A LET P=3-e14159 
PA 
3A 
4A 


"PROGRAM AREA-1" 
“WHAT IS THE RADIUS": 
R 


l=P*Rt2 
P=(2*R)t2 


1 LET D=(CA@-A1l)/74 


5A PRINT 
99 END 


RUN 
PROGPAM 
WHAT IS 


AREA OF 


READY 
RUN 
PROGRAM 
WHAT TS 


AREA OF 


READY 
RUN 
PROGRAM 
WHAT IS 


AREA OF 


RFADY 
RUN 
PROGRAM 
WHAT IS 


ARFA OF 


READY 
ke 


"AREA OF ENCLOSED CORNER IS"sD 


ARF A=-1 
THE RADIUS? 1 


ENCLOSED CORNER IS e2146M25 


AREA-1 
THE RADIUS? 10 


ENCLOSED CORNER IS 21+¢46025 


AREA-1 
THE RADIUS? 180 


FNCLOSED CORNER IS 2146¢A@?5 


AREFA-1 
THE RADIUS? 2.158652 


ENCLOSED CORNER IS 1 


AREA: Geometry NUMBER: 8-18 NAME: LADDER 

SOURCE: Digital Equipment Corporation LANGUAGE: BASIC 
DESCRIPTION: The ladder program shows how the computer can be used to 
calculate the solution to the following word problem: 


A ladder 25 feet long is placed so that its foot is 7 feet from the base 
of a building. When the top of the ladder slipped 4 feet down the side 
of the building, how far did the foot of the ladder slip? 


USAGE: The diagrams below show the two ladder positions. 





By the Pythagorean theorem we know that a2 + b2 = c2, hence, the 
equations needed to solve the above problem are: 


x = V 252 - 72 


Y 252 - (x-4)2 


and the amount of slippage of the base is: 


x 


Z=y-7 


The program to do the problem is as follows: 


PEADY 


5S PRINT ‘*PROGRAM LADDER" 

6 PRINT | 

1A LET X=SQRC25*25-7*7) 

2A LET Y2=SQRCE5*25-CX-4)*CX-4)) 

3A LET Z=Y-7 

40 PRINT “LADDER BASE SLIPPED"$Z5°**FEETe«" 
99 END 


RUN 
PROGRAM LADDER 


LADDER BASE SLIPPED 8 FEET. 


READY 


EDUCATIONAL BENEFITS: While the arithmetic in the problem above is not 
particularly "messy", it still is no great joy to solve by hand. How- 
ever, the computer would be equally happy to do the problem if the ladder 
is 27.83 feet long and it was 7.62 feet from the wall originally. Would 
you? 


10 LET X=SQR(C27-8312-7-6212) 
20 LET Y=SQR(27¢83t2-(X-4) 12) 

30 LET 7=Y-7+62 

RUN | ‘ 
PROGRAM LADDER 


LADDER BASE SLIPPED 8-386132 FEET. 


READY 


AREA: Statistics/Games NUMBER: NAME: GUESS 
SOURCE: Walter Koetke, Lexington High School LANGUAGE: BASIC 


DESCRIPTION: The technique of binary search has a number of mathematical 
and programming applications. In program GUESS, the computer chooses a 
random integer between O and 100 and the student must try to guess what 
it is in as few tries as possible. 


Note that the program does not reveal the technique of binary search, 

but merely alludes to the fact that no more than 7 guesses are necessary. 
Most students "discover" the idean of binary search after only a few 
runs of the program. 


1A PRINT "I HAVE CHOSEN AN INTEGER @ THROUGH 19%- TRY TO" 
15 PRINT "GUESS MY NUMBER IN AS FEW TRIES AS POSSIBLE." 
16 PRINT 

2A LET C=a 

22 RANDOMIZE 

25 LET N=INTCRNDCA)*1@00) 

3A LET C=C+1 

35 PRINT "YOUR GUESS IS"; 

40 INPUT G 

45 IF N=G THEN 70 

50 IF G>N THEN 60 

55 PRINT "TOO LOW" 

56 GO TO 30 

60 PRINT **TOO HIGH” 

65 GO TO 3a 

7A PRINT “CORRECT IN*'C**GUESSES.-* 

75 IF C>3 THEN 94 

RA PRINT “YOU WERE LUCKY!" 

8S STOP 

90 IF C>7 THEN 100 

95 PRINT "GOOD JOB." 

98 STOP 

100A PRINT “BUT YOU SHOULDN'T NEED MORE THAN 7 GUESSES-" 
1aS END 


READY 
RUN 


I HAVE CHOSEN AN INTEGER @ THROUGH 180+ TRY TO 
GUESS MY NUMBER IN AS FEW TRIES AS POSSIBLE« 


YOUR GUESS IS? 5A 

TOO HIGH 

YOUR GUESS IS? 25 

TOO LOW 

YOUR GUESS IS? 37 
CORRECT IN 32 GUESSES. 
YOU WERE. LUCKY! 


READY 
RUN 


I HAVE. CHOSEN AN INTEGER @ THROUGH 10@- TRY TO 
GUESS MY NUMBER IN AS FEW TRIES AS POSSIBLE. 


YOUR GUESS 1S? 46 

TOO LOW 

YOUR GUESS IS? 8@ 

TOO HIGH 

YOUR GUESS IS? 68 

TOO HIGH 

YOUR GUESS IS? 66 

TOO HIGH 

YOUR GUFSS IS? 45 
TOO HIGH 

YOUR GUESS IS? 35 
TOO LOW 

YOUR GUESS IS? 4}! 

TOO LOW 

YOUR GUESS IS? 43 

TOO LOW 

YOUR GUESS IS? 44 
CORRECT IN 9 GUESSFS- 
RUT YOU SHOULDN'T NEED MORE THAN 7 GUESSES- 


READY 


EXTENSIONS: An excellent student assignment is writing a program which 
reverses the role of user and computer in Program GUESS. The computer 

should be programmed to guess a number the user has determined. After 

each guess, the user inputs l, 2 or 3 for LOW, HIGH or CORRECT and the 

program continues until the correct number is found. 


The Ogram should guess any number between O and 100 in 7 guesses pro- 
vided all the user clues are consistent. Writing the steps necessary 
to check the consistency of clues can be part of an assignment for 
better students. , 


AREA: Games NUMBER: NAME: SLOTS 
SOURCE: Anonomous LANGUAGE: BASIC 


DESCRIPTION: This program is a simulation of a slot machine, 
Or one-arm bandit, of the type popular at Las Vegas, Monte Carlo 
and other gambling spas. 


It is not a perfect simulation since three bars or three $ are 
frequently, at the real casinos, a big ($5 or $10) jackpot. 
However, the operation of the slot machine as simulated by this 
program is probably more honest than most existing real machines. 
Calculate the average number of "pulls" needed to lose $20.00. 
What is the probability of winning $20.00? 


The program is on the reverse. The instructions and two "pulls" 
are shown below. 


READY 


RUN | 
DO YOU WISH INSTRUCTIONS 1-YESs @-NO? 1 
THIS IS A SIMULATION OF A SLOT MACHINE USING A COMPUTER 


EACH TIME YOU ‘PULLS I WILL ASK YOU IF YOU WISH TO PLAY AGAIN 


IF YOU DO SIMPLY INPUT A‘1"° FOLLOWED BY A RETURN» 
OTHERWISE INPUT A ‘°9* FOLLOWED BY A RETURN- 
NOW WE ARE READY TO PLAY 


LEMON LEMON S 
YOU HAVE LOST 1 DOLLAR -- TOTAL = $-1 
DO YOU WISH TO PULL AGAIN? 1 


$ BELL APPLE 
YOU HAVE LOST 1 DOLLAR -- TOTAL = $-2 
DO YOU WISH TO PULL AGAIN? @ 
IT*S BEEN NICE OPERATING FOR YOU COME BACK SOON! 


1 RANDOMIZE 

2 DIM DC3) —_. 
5 PRINT"DO YOU WISH INSTRUCTIONS 1-YES»s @-NO"S 

6 INPUT J 

7 IF J=@ THEN 13 

8 PRINT"THIS IS A SIMULATION OF A SLOT MACHINE USING A COMPUTER " 

9 PRINT"EACH TIME YOU ‘PULL' I WILL ASK YOU IF YOU WISH TO PLAY AGAIN" 


19 PRINT"IF YOU DO SIMPLY INPUT A‘*1* FOLLOWED BY A RETURNs" 
11 PRINT“ OTHERWISE INPUT A ‘'@* FOLLOWED BY A RETURN." . 
12 PRINT'NOW WE ARE READY TO PLAY * 
13 PRINT 

14 PRINT _ 
15 PRINT TAB ¢€9)" "5 

i990 FOR Bl=1 TO 3 

116 LET DCBIJ=INTCRND(O)*6)41 

129 NEXT Bl 

139 FOR Gl=1 TO 3 

146 IF DCG1)=1 THEN 399 

159 IF D¢Gld=2 THE N 414 

160 IF DC€G1)=3 THEN 4364 

170 IF DCG1)=4 THEN 456 

186 IF DCG1)=5 THEN 470 

199 IF DCG1)=6 THEN 499 

385 GOTO 999 


398 PRINT"BELL Ws _ 
49 GOTO 580 \ 
410 PRINT“BAR mt Se 


420 GOTO 5069 
436 PRINT “CHERRY "5 
448 GOTO 58@ 


456 PRINT "APPLE ar 
466 GOTO 58d 

476 PRINT “LEMON "3 
489 GOTO 504 

496 PRINT "S "5 


508 NEXT Gl 

516 IF DC1)<>DC2) THEN 526 

511 IF D¢€2d=DC3) THEN 600 

926 PRINT 

$536 IF DC1)=DC3) THEN 55¢ . 
531 LET B=B-1 

532 PRINT “YOU HAVE LOST 1 DOLLAR -- TOTAL = $B 

533 GOTO 889 - 
55@ LET B=B+e5@ 

566 PRINT “YOU HAVE WON 54 CENTS -- TOTAL = S"B 

5978 GOTO 869 

699 LET B=B+tl 

619 PRINT"YOU HAVE WON 1 DOLLAR -- TOTAL SB 

620 GOTO 88d 

888 PRINT TABC20)"DO YOU WISH TO PULL AGAIN" 

681 INPUT J ) 


| Pi 
842 IF J=1 THEN 13 - 
8G3“PRINT"IT'S BEEN NICE OPERATING FOR YOU COME BACK SOON!" Sed 
999 END 


READY 


AREA: Plotting NUMBER : NAME: DIAMON 
SOURCE: Digital Equipment Corp. LANGUAGE: BASIC 


DESCRIPTION: This program prints an N by N matrix of diamond shapes, 
each one being R (odd number input) characters wide. 


3 PRINT “FOR A PRETTY DIAMOND PATTERN, * 
4 PRINT “TYPE IN AN ODD NUMBER BETWEEN 4 AND 32" 
5 INPUT R | 
6 LET Q=INTC60/R) 
8 FOR L=1 TO Q 
11 LET X=1 

12 LET Y=R 

13 LET 7.=2 

2A FOR N=xX TO Y STEP 7 

25 PRINT TABCCR=-N)/72)35 

28 FOR M=1 TO Q 

29 LET C=1 

34 FOR A= 1 TON 

32 IF C=1 THEN 40 

33 IF C=2 THEN 42 

34 IF C=3 THEN 44 

35 PRINT “F's 

37 GOTO SA 

44 PRINT "D's 

41 GOTO 47 

AQ PRINT "E's; 

43 GO TO 47 

44 PRINT “C's 

47 LET CsC+r 

5@ NEXT A 

53 IF M=Q THEN 60 
55 PRINT TABCR*M+CR=-N)/2)3 
56 NEXT M 

609 PRINT 

76 NEXT _N 

83 IF X<>1 THEN 95 

85 LET X=R-2 

86 LET Y=1 

87 LET Z=-2 

9@ GOTO 26 

95 NEXT L 

99 END 


FOR A PRETTY DIAMOND PATTERN, 
TYPE IN AN ODD NUMBER BETWEEN 4 AND 326 


2.15 
D D D D 
DEC DEC DEC DEC 
DEC!! DEC!! DEC!! DEC!! 
DEC!H!!! DEC!!!! DEC!!!! DECI!!! 
DEC!H!!i!! DEC!HI!!!! DECI!!! !! DEC!HHH!!! 
DECHHfHHrr!! DECHIVr29y! DECIHHH!!i!! DECIHHyy!!! 
DECHHiL!HPLL!! DECHILLIlt ett DECHIILLPtrrt! DECI Trres! 
DECHLELELPELLPLLEDECHILLPLPPPLPEDECHILPLL@rrrfeDECHsrrerrryye! 
DECHHELILlElel DECHILLLPL!!! DECHILLPYPrr! DECHIIHHrrre! 
DECHHrrtr!! DECIVVrer9! DECH!HHH9r! DECIH!!!rit! 
DECIHI!!!! DECI!!! DECH!t!!! DECHH!!!! 
DECI!!! DEC!!!! DECI!!! DEC!H!!! 
DEC!! DEC!! DEC!! DEC!! 
DEC DEC DEC DEC 
D D D D 
D D D D 
DEC DEC DEC DEC 
DEC!! DEC!! DEC!! DEC!! 
DEC!!!! DECI!!! DEC!I!! DECI!!! 
DECH!H!!!! DECIItei!! DEC!H!!!!! DEC!HH!!!! 
DECHIPHtrtt DECHIE!y9!! DECHHHryyy! DECHH!!tir! 
DECIEHHfHHL!!! DECLHILEPPl!!! DECHLLLLL8!r! DECHIELrrrye! 
DECIIULPLLULEPIDECHILPLLP PPLE EDECHILEPP PELL PIDECHILrrrrrrny! 
DECHIEHEL!!!! DECHLLLELPLl!! DECILLLL!r!r! DECHILiririyt 
DECIHH!t!t!! DECHI!1rrr! DECHIHHr!!it! DECHELHI!!! 
DEC!H!!!1! DECII!i!! DECHH!!!! DECHIHt!T! 
DECI!!! DEC!H!!! DEC!!!! DECI!!! 
DEC!! DEC! ! DEC!! DEC!! 
DEC DEC DEC DEC 
D D D D 
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DEC DEC DEC DEC 
DEC!! DEC!! DEC!! DEC!! 

— DECI!!! DECI!!! DECI!!! DECI!!! 
DECHH!!!! DECHIt!!! DECI!!!!! DECII!!!! 
DECIHIL!!!!! DECIVH!!rr! DECIHH!Hrer! DECHIEL!syy! 
DECHIMH!P!!!! DECHEPLHPl!e! DECHELLLL!!!! DECHILLHrrey! 
DECHHIPTEPPP PP PEDECHIELPLPP LLLP IDECHIELLP LLP PPP!EDECIIEL Err nnn 
DECHHHHHPH8t! DECHILLEtflet! DECHILIL!L!r! DECIILHHrrey! 
DECHHHHH9!! DECIHH!HH!e! DECH!Hfrir! DECHItHsre! 
DECH!H!!!! DECH!!!!! © DECHI!N!!! DEC!I!!!!! 
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DEC DEC DEC DEC 
D D D D 
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DECHHH!rrt! DECHHHHHe!! DECHIHiry!! DECI!!!r9!! 
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DECHHHEPPEEPE PL IDECIELL PPLE PIDECI ULE P Err PEPIDECHIPLrrreneys 
DECHIIHPPEEt! DECHELPLPLlt! DECILLLLHrr!! DECHIELLrrey! 
DECIP!EH!y! DECII!!L!!!  DECHILie! DECIII!1i!! 
Crysry DECIHHH!!! DECHH1i!! DEC!H!!!t! 
DECI!!! DEC!!! DECI!!! DECI!!! 
DEC!! DEC!! DEC!! DEC!! 
DEC DEC DEC DEC 


D D D p * 


C 


AREA: Plotting NUMBER : NAME: PLOTFN 
SOURCE: Digital Equipment Corp. LANGUAGE: BASIC 


DESCRIPTION: This program accepts any input function, f(x), at the time 
of program execution and plots that function from Xmin to Xmax in steps 

of S. The program also inserts the y axis, if it is crossed. Functions 
which can be plotted range from very simple to rather complex. All of the 
following are plottable functions: 


Function X Limits Increment 
f(x) =2* x -15 +15 1 
f(x) = 30*SIN (x) -5 +5 25 
£ (x) = x-xf2 -5 +6 — 
f(x) = 30*SIN(.5*x) *EXP (-. 2*ABS (x) ) 0 +15 25 


The program is on the reverse. A sample plot is shown below: 


WHAT ARE THE INITIAL AND FINAL VALUES OF xX» AND THE 
INCREMENT SIZE? -Ss6s1 


X 2-5 
e # 
® * 
2 * 
* me 
e * 
“Y © © © © «© © © © © © © © © © © © e*®08 © © ee © © © © © © © © © © © © +Y¥ 
-30 -20 -10 a +10 +20 +30 
| e * 
6 * 
° cs 
e * 
® * 
xX = 6 


11€@ PRINT "TO PLOT Y#FC(%)s THE USER MUST TYPE” 

12€@ PRINT 

130 PRINT "1AA@ GOTO Baa” 

140 PRINT "PAA DEF FNACK)2( THE EXPRESSION FOR FCX))' 
15A PRINT “*RUN™ : 
114A PRINT 

19a STOP 

OAM DEF FNACX)=2*xX 

P1A PRINT 

220 PRINT “WHAT ARF. THE INITIAL AND FINAL VALUES OF X> AND THE" 
230 PRINT “INCREMENT SIZF": 

O4A INPUT Xl» X25 §S 

P5a PRINT 

26A PRINT 

270 PRINT TABC33)3 "xX ="3 x1 

era FOR X=X1 TO X?2 STEP S 

297 IF ABS(X%)<eAAAAAL THEN 362 

34A LET Y = FNACX) + 35 

350 IF Y>35 THEN 384 

360 PRINT TARCY) 3"*""3 TABC35) 5" 0" 

361 GO TO 39a 

362 PRINT arf e e e e e s e ® e e & ® e ® e % e e e e e e e e e 
363 PRINT " © © © © © e « +Y¥"$TABCFNACK) +35) 57%" 

264 PPINT TABC4) 3%=-3A"S TABC14) 3"-20"3 TABC24) 3 "=10'"'3 TABC 35) 3 "O'S 
265 PRINT TARCAA 3S "4+1A"3STABCS4) 3 *""+2n"'s TABC64) 3" 4+3G"5 
37A GOTO 39% 

3RA PRINT TARC35)3"%e"S TABCY) 5%" 

390A NEXT X : 

AAA PRINT TABC323)3"K ="3 KO 

A1A PRINTF 

44a END 


READY 


PUN 


TO PLOT YeFC(X%)s THE USER MUST TYPE: 
140 GOTO 2Aa6 


2AM DEF FNACX)=C(THE EXPRESSION FOR FCX)) 
RUN 


READY 
1a“ GOTO PAA 


PAA DEF FNACK)=xt2-xX 
RUN 


WHAT ARE THE INITIAL AND FINAL VALUES OF Xs» AND THE 
INCREMENT SIZE? -5s6s1 


(See Plot on Front of Page) 
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PERTH 

643 Murray Street 

West Perth, Western Australia 6005 

Telephone: 21-4993 Telex: AA92140 
BRISBANE 

139 Merivale Street, South Brisbane 
Queensland, Australia 4101 

Telephone: 44-4047 Telex: AA40616 
ADELAIDE 

6 Montrose Avenue 

Norwood, South Australia 5067 


TWX: 610-831-2248 


Telex: AA20740 


Telephone: 63-1339 Telex: AA82825 
NEW ZEALAND 

Digital Equipment Corporation Ltd. 
AUCKLAND 


Hilton House, 430 Queen Street, Box 2471 
Auckland, New Zealand 
Telephone: 75533 


JAPAN 

Digital Equipment Corporation International 
TOKYO 

Kowa Building No. 17, Second Floor 

2-7 Nishi-Azabu 1-Chome 

Minato-Ku, Tokyo, Japan 


Telephone: 404-5894/6 Telex: TK-6428 


WEST (cont.) 

ANAHEIM 

801 E. Ball Road, Anaheim, California 92805 
Telephone: (714)-776-6932/8730 TWX: 910-591-1189 
WEST LOS ANGELES 

1510 Cotner Avenue, Los Angeles, California 90025 
Telephone: (213)-479-3791/4318 | TWX: 910-342-6999 
SAN DIEGO 

6154 Mission Gorge Road, Suite 110 

San Diego, California 92120 

Telephone: (714)-280-7880, 7970 TWX: 910-335-1230 
SAN FRANCISCO 

1400 Terra Bella, Mountain View, California 94040 
Telephone: (415)-964-6200 TWX: 910-373-1266 
PALO ALTO 

560 San Antonio Road, Palo Alto, California 94306 
Telephone: (415)-969-6200 TWX: 910-373-1266 
OAKLAND 

7850 Edgewater Drive, Oakland, California 94621 
Telephone: (415) 635-5453/7830 TWX: 910-366-7238 
ALBUQUERQUE 

6303 Indian School Road, N.E., Albuquerque, N.M. 87110 
Telephone: (505)-296-5411/5428 | TWX: 910-989-0614 
DENVER 

2305 South Colorado Boulevard, Suite #5 

Denver, Colorado 80222 

Telephone: (303)-757-3332/758-1656/ 758-1659 

TWX: 910-931-2650 

SEATTLE 

1521 130th N.E., Bellevue, Washington 98005 
Telephone: (206)-454-4058/455-5404 TWX: 910-443-2306 
SALT LAKE CITY 

431 South 3rd East, Salt Lake City, Utah 84111 
Telephone: (801)-328-9838 TWX: 910-925-5834 
PHOENIX 

4358 East Broadway Road, Phoenix, Arizona 85040 
Telephone: (602)-268-3488 TWX: 910-950-4691 
PORTLAND 

Suite 168 

5319 S.W. Canyon Court, Portland, Oregon 97221 
Telephone: (503)-297-3761 /3765 


JAPAN (cont.) 

Rikei Trading Co., Ltd. (sales only) 
Kozato-Kaikan Bldg. 

No. 18-14, Nishishimbashi 1-chome 
Minato-Ku, Tokyo, Japan 

Telephone: 5915246 Telex: 781-4208 


PUERTO RICO 

Digital Equipment Corporation de Puerto Rico 
American Airlines Bldg. 

804 Ponce De Leon, Miramar, Puerto Rico 
Telephone: 809-723-8068 /67 Telex: 385-9056 


ARGENTINA 


BUENOS AIRES 
Coasin S.A. 
Virrey del Pino 4071, Buenos Aires 


Telephone: 52-3185 Telex: 012-2284 
BRASIL 

RIO DE JANEIRO — GB. 

Ambriex S.A. 


Rua Ceara, 104, 2.° e 3.° andares 
Fones: 221-4560/44, 252-9873 
Cable: RAIOCARDIO 


SAO PAULO — SP 

Ambriex S.A. 

Rua Tupi, 535 

Fones: 51-0912; 52-0655; 52-7806 
Cable: RAIOCARDIO 


PORTO ALEGRE — RS 
Ambriex S.A. ; 

Rua Cel. Vicente, 421, 1.° andar 
Fones: 24-7411; 24-7696 

Cable: 


CHILE 

SANTIAGO 

Coasin Chile Ltda. (sales only) 

Casilla 14588, Correo 15, Santiago 
Telephone: 396713. Cable: COACHIL 


INDIA 


BOMBAY 

Hinditron Computers Pvt. Ltd. 
69/A, L. Jagmohandas Marg. 
Bombay-6 (W.B.), India 
Telephone: 38-1615; 36-5344 
Cable: Tekhind 


Telex: 011-2594 Plenty 


MEXICO f 
MEXICO CITY 

Mexitek, S.A. 

Eugenia 408 Deptos. 1 

Apdo. Postal 12-1012 

Mexico 12, D.F. 


PHILIPPINES 

Stanford Computer Corporation 

P.O. Box 1608 

416 Dasmarinas St., Manila 
Telephone: 49-68-96 Telex: 742-0352 
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